Option Explicit
Sub F_Sample045()
   'Microsoft DAO 3.6 Object Library ]wޥζ
   'ոF_Sample033һs@XӪNewDB.mdb
   'ոF_Data.mdb F_Qry01d
    Dim myDb1       As DAO.Database
    Dim myDb2       As DAO.Database
    Dim myQry1      As DAO.QueryDef
    Dim myQry2      As DAO.QueryDef
    Dim mySqlStr    As String
    Dim myFileName1 As String
    Dim myFileName2 As String
    myFileName1 = "F_Data.mdb"				'¦ɮ
    myFileName2 = "NewDB.mdb"     			'gJؼɮ
    Set myDb1 = OpenDatabase(ThisWorkbook.Path & "\" & myFileName1)
    Set myDb2 = OpenDatabase(ThisWorkbook.Path & "\" & myFileName2)
    Set myQry1 = myDb1.QueryDefs("F_Qry01")
    mySqlStr = myQry1.Sql
   'RmyDb2JsPWd
    On Error Resume Next
    myDb2.QueryDefs.Delete myQry1.Name
    On Error GoTo 0
    Set myQry2 = myDb2.CreateQueryDef(myQry1.Name, mySqlStr)
    myDb1.Close
    myDb2.Close
    Set myQry1 = Nothing				'
    Set myQry2 = Nothing
    Set myDb1 = Nothing
    Set myDb2 = Nothing
End Sub
